home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / initia / initia.txt < prev   
Encoding:
Text File  |  1994-04-06  |  1.5 KB  |  41 lines
  1. '----------------------------------------------------------------------
  2. 'FUNCTION INITIALS
  3. 'Visual Basic function
  4. 'Purpose: changes a name to intials
  5. 'Examples: initials(Joseph E. Blow) results in JEB
  6. '          initials(Joseph Blow) results in JB
  7. 'Released to the public domain, no warranties, use at your own risk.
  8. 'Stephen E. Covell, CompuServe 75010,3700
  9. '   If you have a better way to do this, or any
  10. '   improvements, please let me know. You may want
  11. '   to declare: function initials (mNameInit as String) 
  12. '   or: function initials (mNameInit as String) as String
  13. '   in your application.
  14. '----------------------------------------------------------------------
  15.  
  16. Function Initials (mNameInit)
  17.  
  18. '---Get leftmost letter of string
  19. mLeft = UCase(Left(mNameInit, 1))
  20.  
  21. '---Get place number value of character after space,
  22. '---this will be either the middle intitial or the last name
  23. Dim mMiddleNumber As Integer
  24. mMiddleNumber = InStr(mNameInit, " ") + 1
  25.  
  26. '---Get character at that place number value
  27. mMiddle = UCase(Mid(mNameInit, mMiddleNumber, 1))
  28.  
  29. '---Get place number value of character 2 spaces past period
  30. '---this should be the last name if a middle initial was entered
  31. If InStr(mNameInit, ".") Then  'See if there is a period in the string
  32.     Dim mLastNumber As Integer
  33.     mLastNumber = InStr(mNameInit, ".") + 2
  34.     mLast = UCase(Mid(mNameInit, mLastNumber, 1))
  35.     Else
  36.     mLast = "" 'No period, no middle initial, so make it blank
  37. End If
  38. Initials = mLeft & mMiddle & mLast
  39.  
  40. End Function
  41.